program exam2;
const fuckingend='@';
var letter:char;
newtext:string;
begin
writeln('Write a various text ended by @');
read(letter);
newtext:='';
while letter <> fuckingend do
begin
case letter of
'A'..'Z','a'..'z','0'..'9':newtext:=newtext+letter;
else newtext:=newtext+'-';
end;
read(letter);
end;
writeln('Corrected text: ',newtext);
end.